home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 033a / aed244a.zip / R-PCETOG.MRG < prev    next >
Text File  |  1991-02-16  |  6KB  |  181 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce R-PCETOG.BAS
  3. * RBBS-PC.BAS:  Date 8-26-1990  Size 165474 bytes
  4. * ------------[ Created 09-20-1990 15:17:59 ]------------
  5. * REPLACING old line(s) by new
  6. 760 GOSUB 755
  7.     CALL AllCaps (ZWasZ$)
  8.     LSET ZPswd$ = ZWasZ$
  9. * ------[ first line different ]------
  10.     ' CALL QuickTPut1 ("Please REMEMBER your password")
  11.     ZUserTextColor = 37
  12.     ZTempSecLevel = ZUserSecLevel
  13.     CALL Protocol
  14.     ZUserXferDefault$ = "N"
  15.     ZProtoPrompt$ = "None"
  16.     LSET ZLastNewDate$ = CHR$(90) + CHR$(1) + CHR$(1)
  17.     IF ZNewUserSetsDefaults THEN _
  18.        CALL SkipLine (1) : _
  19.        ZBypassTimeCheck = ZTrue : _
  20.        GOSUB 43000 : _
  21.        ZBypassTimeCheck = ZFalse : _
  22.        CALL Graphic (ZUserGraphicDefault$,ZFileName$) : _
  23.        GOSUB 42805 : _
  24.        GOSUB 42700 : _
  25.        GOSUB 42750 _
  26.     ELSE ZUpperCase = ZFalse : _
  27.          ZHiLiteOff = ZTrue : _
  28.          CALL SetGraphic (0,ZUserGraphicDefault$) : _
  29.          ZNulls = ZFalse : _
  30.          ZFullScreenEditor = ZFalse
  31.     ZPageLength = ZPageLengthDef
  32.     GOSUB 12900
  33.     GOSUB 5135
  34.     CALL DefaultU
  35. * REPLACING old line(s) by new
  36. 1500 IF ZAnsIndex < ZLastIndex THEN _
  37.         GOTO 1510
  38. * ------[ first line different ]------
  39.      ZOutTxt$ = "A)utodwnld   B)ullet  C)ase     E)ditor   F)ile   H)ilite"
  40.      CALL ColorPrompt (ZOutTxt$)
  41.      CALL QuickTPut1 (ZOutTxt$)
  42.      ZOutTxt$ = "L)ine feeds  N)ulls   T)urboKey X)pert    !)bell"
  43.      CALL ColorPrompt (ZOutTxt$)
  44.      CALL QuickTPut1 (ZOutTxt$)
  45.      ZOutTxt$ = "Toggle Which Options On/Off?" + ZPressEnter$
  46. * REPLACING old line(s) by new
  47. * ------[ first line different ]------
  48. 1510 ZStackC = ZTrue
  49.      GOSUB 12930
  50.      IF ZWasQ=0 THEN _
  51.         RETURN
  52.      ZWasZ$ = ZUserIn$(ZAnsIndex)
  53.      CALL AllCaps (ZWasZ$)
  54.      ZFF = INSTR("ABCFHLNTX!E",ZWasZ$)
  55.      IF ZFF < 1 THEN _
  56.         GOTO 1500
  57.      CALL Toggle (ZFF)
  58.      GOSUB 12997
  59.      GOTO 1500
  60. '
  61. ' ****  I - COMMAND FROM MAIN MENU (DISPLAY INITIAL WELCOME)  ***
  62. '
  63. * REPLACING old line(s) by new
  64. * ------[ first line different ]------
  65. 2100 IF NOT ZFullScreenEditor OR ZGetExtDesc THEN _
  66.         GOTO 2120
  67. * INSERTING new line(s)
  68. 2110 CALL Ansied (MsgTo$, OrigSubject$, MsgLockLines)
  69.      I = ZSubParm
  70.      CALL SkipLine (1)
  71.      IF I = -2 THEN      ' Sleep Disconnect
  72.         GOTO 10590
  73.      ELSEIF I = -1 THEN  ' Lost Carrier
  74.         GOTO 10595
  75.      ELSEIF I = 1 THEN   ' Save Message
  76.         GOTO 3400
  77.      ELSEIF I = 2 THEN   ' Abort Message
  78.         GOTO 2430
  79.      END IF
  80. 2120 ZOutTxt$ = "Enter Your " + _
  81.           ZMsgHeader$ + _
  82.           STR$(ZMaxMsgLines) + _
  83.           " Lines Max" + _
  84.           ZPressEnterExpert$
  85.      GOSUB 12975
  86.      GOSUB 3200
  87. * REPLACING old line(s) by new
  88. 4626   ZWasZ$ = "L"
  89.        WasL = 1
  90. * ------[ first line different ]------
  91.        IF ZFullScreenEditor THEN
  92.           GOSUB 2110
  93.        ELSE
  94.           IF ZLinesInMsg >= ZMaxMsgLines THEN _
  95.              CALL QuickTPut ("Message Must Be Shorter Than" + _
  96.                          STR$(ZMaxMsgLines) + " Lines...",1)
  97.           IF NOT MsgFwd THEN _
  98.              ZOutTxt$ = "Use C to Continue Reply.  Please Delete Unneeded Lines." : _
  99.              GOSUB 12975
  100.           GOSUB 3200
  101.           GOSUB 3020
  102.           GOSUB 2300
  103.        END IF
  104.        GOTO 4628
  105. * REPLACING old line(s) by new
  106. 5410 CALL Toggle(-9)
  107.      GOSUB 43020
  108.      ZFF = INSTR(ZDefaultXfer$,ZUserXferDefault$)
  109.      CALL Toggle(-5)
  110.      GOSUB 42810
  111.      CALL Toggle(-3)
  112.      CALL Toggle(-6)
  113.      CALL Toggle(-7)
  114.      CALL Toggle(-10)
  115.      CALL Toggle(-2)
  116.      CALL Toggle(-4)
  117.      CALL Toggle(-8)
  118.      CALL Toggle(-1)
  119. * ------[ first line different ]------
  120.      CALL Toggle(-11)
  121.      IF ZRestrictByDate AND ZDaysInRegPeriod > 0 THEN _
  122.         IF ZUserSecLevel > ZExpiredSec THEN _
  123.            CALL QuickTPut1 ("Registration Expires " + ZExpirationDate$)
  124.      RETURN
  125. '
  126. ' *****  B - COMMAND FROM UTILITY MENU (300 TO 450 BAUD CHANGE)  ****
  127. '
  128. * REPLACING old line(s) by new
  129. 9510 UserOptions = CVI(MID$(ZUserOption$,9,2))
  130.      ZPromptBell = (UserOptions AND 1) > 0
  131.      ZExpertUser = (UserOptions AND 2) > 0
  132.      CALL SetExpert
  133.      ZNulls = (UserOptions AND 4) > 0
  134.      ZUpperCase = (UserOptions AND 8) > 0
  135.      ZLineFeeds = (UserOptions AND 16) > 0
  136.      ZCheckBulletLogon = (UserOptions AND 32) > 0
  137.      ZSkipFilesLogon = (UserOptions AND 64) > 0
  138.      ZAutoDownDesired = (UserOptions AND 128) > 0
  139.      ZReqQuesAnswered = (UserOptions AND 256) > 0
  140.      ZMailWaiting = (UserOptions AND 512) > 0
  141.      WasX = (UserOptions AND 1024 ) > 0
  142.      CALL SetHiLite (NOT WasX)
  143.      IF NOT ZHiLiteOff THEN _
  144.         CALL QuickTPut (ZEmphasizeOff$,0)
  145.      ZTurboKeyUser = (UserOptions AND 2048) > 0
  146.      ZTurboKey = ZFalse
  147.      GOSUB 11480
  148. * ------[ first line different ]------
  149.      ZFullScreenEditor = (UserOptions AND 4096) > 0
  150.      ZPageLength = ASC(MID$(ZUserOption$,13,1))
  151.      IF SubBoard THEN _
  152.         GOTO 9520
  153.      WasX$ = ZEchoer$
  154.      ZEchoer$ = MID$(ZUserOption$,14,1)
  155.      IF INSTR("ICR",ZEchoer$) = 0 THEN _
  156.         ZEchoer$ = "R"
  157.      IF WasX$ <> ZEchoer$ THEN _
  158.         GOSUB 9525
  159.      CALL SetEcho (ZEchoer$)
  160. * REPLACING old line(s) by new
  161. * ------[ first line different ]------
  162. 42700 ' CALL SkipLine (1)
  163.       ZOutTxt$ = "TurboKeys Allow Single Key Commands Without ENTER.  Use TurboKeys (Y/[N])"
  164.       GOSUB 12999
  165.       ZTurboKeyUser = NOT ZYes
  166.       CALL Toggle (8)
  167.       RETURN
  168. '
  169. ' * EDITOR SET FOR NEW USERS
  170. '
  171. * INSERTING new line(s)
  172. 42750 ZOutTxt$ = "Use the Full Screen Editor for Messages (Y/[N])"
  173.       GOSUB 12999
  174.       ZFullScreenEditor = NOT ZYes
  175.       CALL Toggle (11)
  176.       RETURN
  177. '
  178. ' *  F - COMMAND FROM UTILITY MENU (FILE Transfer DEFALUT MODE)
  179. ' *  FILE Transfer DEFAULT SET FOR NEW USERS
  180. '
  181.